<!--#include file="lib/utf-8.asp"-->
<!--#include file="lib/connopen.asp"-->
<!--#include file="lib/asp-common-lib.asp"-->
<%

' if not cf(session("aaPostFlag"),1) then call ShowError(2)

'获取提交查询的参数
tx_search=trim(SafeRequest("tx_search",0))
ksrq=trim(SafeRequest("ksrq",0))
if ksrq<>"" then ksrq=cdate(ksrq)
jsrq=trim(SafeRequest("jsrq",0))
if jsrq<>"" then jsrq=cdate(jsrq)
search_count=trim(SafeRequest("search_count",1))
da_type=trim(SafeRequest("da_type",1))

'组合sql查询字符串
'sql="select * from cdfee where true "
sql="select "
if search_count<>0 then sql=sql&" top "&search_count
sql=sql&" * from dangan where true "
if tx_search<>"" then
		sql=sql&" and (da_owner like '%"&tx_search&"%' or da_filenumber like '%"&tx_search&"%' or da_filename like '%"&tx_search&"%' or da_recordnumber like '%"&tx_search&"%' or da_memo like '%"&tx_search&"%')"
end if
if ksrq<>"" and jsrq<>"" then	sql=sql&" and (da_date>=#"&ksrq&"# and da_date<=#"&jsrq&"#)"
if da_type<>0 then sql=sql&" and da_type="&da_type

sql=sql&" order by id desc"
' response.write sql
'response.end
'执行数据查询
set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
If rs.eof Then
	response.write("没有检索到数据!")
	response.end
End if

'分页控制
If saferequest("page",0)<>"" Then	page=clng(saferequest("page",0)) Else	page=1
pc=saferequest("pc",1)
If pc="" Then pc=25
rs.pagesize=pc
pagesize=rs.pagesize
pagecount=rs.pagecount
'page=clng(request.QueryString("page"))
if Not IsEmpty(page) then '如果page_num已经初始化...
	if Not IsNumeric(page) then '判断page_num值是否为数字
		page=1
	else
		page = clng(page) '接收page_num并化为数字型赋给page_num变量
	end if
	if page > pagecount then '如果接收的页数大于总页数
		rs.AbsolutePage = pagecount '设置当前显示页等于最后页
	elseif page <= 0 then '如果page小于等于0
		page=1
		rs.AbsolutePage = page '设置当前显示页等于第一页
	else
		rs.AbsolutePage = page '如果大于零,显示当前页等于接收的页数
	end if
	page = rs.AbsolutePage
end if
%>
<table class="full">
	<thead>
		<tr>
			<th scope="col"><input type="checkbox" id="checkall"></th>
			<th scope="col">序号</th>
			<th scope="col">日期/年份</th>
			<th scope="col">档号/案卷号</th>
			<th scope="col">责任者/责任人</th>
			<th scope="col">文件名/编号</th>
			<th scope="col">文号/张数</th>
			<th scope="col">备注</th>
		</tr>
	</thead>
	<tbody>
<%
	For i=1 To pagesize
		If rs.eof Then Exit for
%>
		<tr>
			<th class="sub" scope="row"><input type="checkbox" name="checkid" class="checkid" value="<%=rs("id")%>" /></th>
			<th class="sub" scope="row"><a href="processfile.asp?id=<%=rs("id")%>" target="_blank"><%=rs.AbsolutePosition%></a></th>
			<td><%if rs("da_type")=1 then response.write(rs("da_date")) else response.write(rs("da_year"))%></td>
			<td><%=rs("da_recordnumber")%></td>
			<td><%=rs("da_owner")%></td>
			<td><%=rs("da_filename")%></td>
			<td><%if rs("da_type")=1 then response.write(rs("da_filenumber")) else response.write(rs("da_sheet"))%></td>
			<td><%=rs("da_memo")%></td>
		</tr>
<%
	rs.movenext()
next
%>
	</tbody>
</table>
<div>
	<span id="pagebar">
		共查询到&nbsp;<%=rs.RecordCount%>&nbsp;条记录&nbsp;
		<%	If page>1 Then	%>
			[<a href="#" id="1">首页</a>]
			[<a href="#" id="<%=page-1%>">上一页</a>]
		<%
				End If
				If Not (page>=pagecount Or pagecount=0) Then
		%>
			[<a href="#" id="<%=page+1%>">下一页</a>]
			[<a href="#" id="<%=pagecount%>">尾页</a>]
		<%	End If %>
			第 <%=page%> 页 / 共 <%=pagecount%> 页
			转到<input id="page_val" type="text" size="2" maxlength="<%=Int(Log(pagecount))+1%>" value="<%=page%>" />页
			<input id="page_go" class="bt_button" type="button" value="Go" />
	</span>
</div>
<%
rs.close
Set rs=nothing
%>

<!--#include file="lib/connclose.asp"-->

